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I  SUMMARY 

Software  has  been  written  to  provide  automatic  control  and  data 
acquisition  facilities  for  the  Nicolet  446b  spectrum  analyser.  Information 
is  provided  to  enable  use  of  the  software  as  it  stands,  or  for  the  user  to 
modify  it  to  his  own  needs. 
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1  INTRODUCTION 


In  order  to  verify  theoretical  predictions  for  the  noise  spectra  in  CCDs 
operating  in  the  weak-inversion  mode^,  it  has  proved  necessary  to  make 
measurements  of  noise  to  a  high  degree  of  accuracy  over  the  frequency  range 
of  a  few  hertz  up  to  tens  of  kilohertz.  The  measurement  of  noise  to  high 
accuracy  requires  that  results  be  averaged  or  integrated  over  a  long  period 
of  time.  Such  measurements  are  obviously  suited  to  a  computer-controlled 
system,  such  as  the  one  described  here. 

The  Nicolet  446b  spectrum  analyser  has  as  an  cpt.  IEE-488  bus 

interface^  which  permits  complete  control  and  sensing  04  analyser  functions, 
and  permits  the  transfer  of  data,  via  the  bus. 


The  HP-85  desk-top  computer  also  has  an  IEEE-488  bus  option,  which 
together  with  an  extra  read-only  memory  (the  I/O  ROM)^  permits  easy  manipula¬ 
tion  of  the  bus  using  a  small  set  of  instructions  not  included  in  the  standard 
Hewlett-Packard  basic  language^. 


This  memorandum  describes  a  computer  program  written  with  the  above  aims 
and  constraints  in  mind,  to  provide  complete  control  and  sensing  of  analyser 
functions,  and  the  ability  to  store  data  onto  magnetic  tape  cassettes. 
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2  PROGRAM  STRUCTURE 


The  program  is  stored  as  three  separate  sections  on  cassette,  in  order 
that  it  will  fit  in  the  basic  16K-bytes  of  computer  memory.  These  three 
parts  are  listed  as  appendices  1,  2  and  3,  with  a  flow  diagram  (fi^,  1)  to 
show  the  operation  of  the  whole  program. 

2.1  Initialisation 

The  bus  identification  code  entered  via  the  keyboard  enables  the  computer 
to  establish  communication  with  the  analyser  via  the  bus.  The  user  then 
chooses  the  next  course  taken  by  the  program,  which  is  essentially  a  choice 
between  sections  2.2  and  2.3. 

2 . 2  Keyboard  Contro 1 

The  user  is  presented  with  a  sequence  of  "menus'*  enabling  him  to  select 
in  turn  a  group  of  controls,  an  individual  control  with  its  current  setting 
displayed,  and  all  possible  settings  of  the  control  chosen;  and  to  change  the 
control  setting  as  desired.  This  process  continues  until  the  user  chooses  to 
store  some  data. 

2.3  Data  Storage 

The  user  chooses  whether  he  wishes  to  store  the  current  data  being  dis* 
played  by  the  analyser  or  to  allow  the  computer  to  control  data  acquisition  to 
his  requirements. 

In  the  first  case  the  computer  decides  on  the  type  of  data  being  displayed, 
initialises  a  data  file  on  a  cassette  accordingly,  and  stores  the  data  on  the 
tape  • 

In  the  second  case,  the  user  feeds  his  requirements  in  via  the  keyboard, 
and  the  computer  decides  on  the  best  way  to  take  the  distribution  of  spectral 
points  requested.  This  is  particularly  important  when  the  spectrum  analyser 
is  fitted  with  the  "frequency  expansion'*  option^,  when  the  origin  of  a  narrow 
band  of  frequencies  can  be  selected  to  occur  at  any  frequency  within  the 
analyser's  range,  thus  ena>ling  a  small  frequency  resolution  at  high  fre¬ 
quencies.  The  computer  se:s  up  suitable  ranges  for  the  analyser,  initialises 
a  data  tape  file  as  above  and  after  the  analyser  has  finished  its  data  acquisi¬ 
tion  and  averaging  the  data  is  transferred  to  the  computer,  the  selected  data 
points  being  stored  on  tape.  This  process  is  repeated  if  it  is  necessary  to 
sweep  the  frequency  expansion  origin  until  the  data  has  all  been  acquired. 

3  SPECIAL  COMMANDS 

There  are  a  number  of  commands  peculiar  to  this  particular  combination  of 
machines  which  will  now  be  described  in  some  detail.  These  relate  to  the 
transfer  of  instructions  or  data  via  the  IEEE  -  488  bus^. 

In  all  the  subsequent  examples,  the  number  denoted  'N'  is  the  address 
code  of  the  analyser.  It  is  an  integer  in  the  range  700-731  where  the  "7" 
indicates  the  IEEE  -  488  bus  and  the  integer  0  -  31  is  the  code  set  up  on  the 
rear  panel  of  the  spectrum  analyser  by  the  user. 
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OUTPUT  N;  At 


This  command  sends  an  instruction  to  the  analyser,  the  details  of  which 
are  defined  by  the  character  string  "At". 


At 


Instruction  sent. 


»L" 


Returns  spectrum  analyser  to  local  (ie  front  panel) 
control • 


"S"  Instructs  the  analyser  that  the  next  information  to 

be  transferred  from  the  analyser  is  the  sensing  of 
the  current  control  settings. 

"T"  Instructs  the  analyser  that  the  next  information  to 

be  transferred  from  the  analyser  is  tine  or  spectral 
data  depending  on  the  current  display. 

"XXXXX"  A  5  character  hexadecimal  representation  of  a  20  bit 

binary  number  which  represents  the  20  bit  internal 
bus  architecture  of  the  spectrum  analyser^.  Bits  1 
to  16  define  the  control  settings,  and  bits  17  to  20 
identify  the  set  of  controls  to  which  the  instruction 
refers. 


ENTER  N  USING  "%,  %K";  AK 

This  command  sends  data  from  the  spectrum  analyser  to  the  computer,  the 
nature  of  the  data  being  defined  by  a  previous  OUTPUT  statement.  The  character 
string  A$  is  a  5  character  hexadecimal  representation  as  above,  containing 
either  the  current  control  setting,  or  data  acquired  by  the  analyser.  The 
statement  ’USING  "%,%K"’  is  an  IMAGE  statement  which  defines  the  format  of  the 
data  transfer®.  It  enables  the  spectrum  analyser's  end-of-transfer  character 
(control  ’C)  to  be  interpreted  correctly  and  thus  complete  the  bus  handshake 
procedures  necessary  at  the  end  of  a  transfer  of  data. 

4  TAPE  STORAGE  FORMAT 


Along  with  the  data  stored  by  the  ])rogram  on  tape  cassettes,  there  is 
stored  some  other  information  in  order  t:o  aid  subsequent  analysis  of  the  data. 
This  format  is  dependent  on  the  type  of  data  which  has  been  stored.  Once  data 
has  been  stored  on  tape,  it  may  be  processed  by  another  program  to  give  data 
of  any  desired  format.  Belov  is  listed  the  order  and  character  type  of  the 
data  as  stored  onto  the  tape  cassette. 

a)  Time  data  as  displayed 


Character 


Meaning 


AK 


"T"  -  time  data. 


A  1024  -  no  of  data  points  in  data  file. 

BK  Up  to  40  characters  of  information  entered 

by  the  user  from  the  keyboard. 

B  Bandwidth  of  complete  spectrum  (Hz). 


3 


Character 

C 

D(1024) 

b)  Spectral  data  as  displayed 
Character 

AK 

A 

C$ 

B 

C 

D 

E(400) 

c)  Spectral  data  acquired  under  computer 
Character 

A$ 

A 

Bt 

B 

C 

D(A)  E(A) 


Meaning 

Lowest  frequency  component  of  spectrum 
(Hz). 

1024  data  points  in  terms  of  voltage 
(V). 


Meaning 

"S"  -  spectral  data. 

400  -  no  of  spectral  data  points 

in  data  file. 

Up  to  40  characters  of  information 
entered  from  keyboard. 

"HANN"  or  "FLAT”  or  "AUTO"  -  form 
of  spectral  weighting'  applied  to  data. 

Bandwidth  of  complete  spectrum  (Hz) . 

Lowest  frequency  of  spectrum  (Hz). 

Spectrum  analyser  reference  voltage 
(V). 

400  spectral  data  points  (V) • 


control 

Meaning 

"LIN"  or  "LOG"  -  Spectral  data 
acquired  under  computer  control: 
logarithmic  or  linear  frequency 
spectrum. 

Number  of  spectral  data  points  taken. 

Up  to  40  characters  of  information. 

Filter  bandwidth  for  single  spectral 
point  (Hz). 

Number  of  sample  averages  taken. 

Ordered  pairs  of  numbers  giving 
measurement  frequency  (Hz)  and 
spectral  amplitude  (V). 
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5  CONCLUSION 


This  memorandum  is  intended  to  enable  anyone  wishing  to  use  this  combina¬ 
tion  of  machines  to  form  a  computer-controlled  data  acquisition  system^  to  use 
this  particular  program,  or  to  simply  modify  it  to  their  own  needs.  The 
explanation  given  here  will  suffice  for  anyone  with  a  working  knowledge  of 
Hewlett-Packard  basic,  and  with  the  aid  of  manuals  for  the  equipment,  to 
understand  the  functioning  of  the  program;  a  complete  listing  of  which,  together 
with  some  annotation,  is  given  in  the  appendices.  In  order  to  use  the  program  as 
it  stands,  however,  such  knowledge  is  unnecessary,  thus  providing  a  tool  for 
the  user  who  does  not  wish  to  involve  himself  in  the  mechanics  of  device  opera¬ 
tion,  but  wishes  only  to  gather  data. 
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LETTERS  'ft'  TO  '7'  CORRESPOND  TO  LETTERS  IN  APPENDICES  1.2  AND  3 


LIST  OF  SYMBOLS 
At,  BK  etc 


AyB,  etc 
A(N),  B(N)  etc 

X 


String  variables  in  computer  memory  comprising 
alphanumeric  characters. 

Numeric  variables  in  computer  memory. 

1-dimensional  numeric  array  variables  with  N 
elements  in  the  array. 

A  hexadecimal  digit  0  through  F. 
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APPENDIX  1 


rOM  IHTEGtk  N,S1<:10< 

1010  ENABLE  KBD  229 
10?0  CLEAR 

!030  DISP  "  NICOLET  446B  spectr 
Mm  analyser" 

1040  DmP  "control  and  data  a^ui 
SI ♦ ion" 

1050  OISP  "software." 

1060  OISP  “  PA 

Manning" 

1080  DISP  USING  1230  "  Crown 

Copyright  CO  1981" 

1090  UAIT  5000 

1140  CLEAR  @  DISP  "Give  the  code 
switch  set  tine" 

1150  OISP  "selected  tor  the  NICO 
LET" 

1160  INPUT  SI 

1165  SET  TIMEOUT  7i3000 

1166  ON  TIMEOUT  7  GOTO  1300 
1170  N=700+S1  0  S=SPOLL<N> 

1200  ON  KEY#  1, "LOCAL"  GOTO  2000 
1210  ON  KEY#  *»,  “HP-85"  GOTO  2080 
1220  CLEAR  e  DISP  USING  1230  :  " 
Mode  ot  control  tor  NICOLET 

II 

1230  IMAGE  8/.K 
1240  KEY  label 
1250  GOTO  1250 

1300  CLEAR  0  DISP  "Device  no . " j N 
"not  present  " 

1305  ABORTIO  7 

1310  DISP  "Proeram  terminat ine . " 
1320  END 

2000  OFF  KEY#  1  0  OFF  KEY#  4 
2010  ON  KEY#  1. “READY"  GOTO  2200 
2020  KEY  LABEL 

2030  DISP  "Spectrum  analyser  und 
er  local" 

2040  DiSP  "control." 

2050  DiSP  USING  1230  ;  "Press  ke 
y  when  analyser  is  set" 

2060  DISP  “up  as  required" 

2070  GOTO  2070 

2080  CLEAR  0  DISP  "  Please  be  p 
a  t i en  t  whilst" 

2090  DISP  "the  rest  ot  the  proer 
amme  “ 

2100  DISP  “is  beine  initialised" 
2105  NAIT  5000 
2110  CHAIN  "NIC  #2" 

2200  REMOTE  N 
2205  OUTPUT  N  ; “S"  0  K1«0 
2210  ENTER  N  USING  "*y.,^K"  Sl$ 
2215  IF  S1*«"N"  THEN  2240 
2220  Si <K1 >*NTDCS1#C1 .431 
2225  Kl=Kl-*-l  0  GOTO  2210 
2240  CLEAR  0  DISP  "  Be  patient 
whilst  next  program  is  bein 
e  initialised" 

2245  NAIT  5008 
2250  CHAIN  "NIC  #3" 


Check  that  device  specified  is 
present . 


If  device  is  absent,  then 
terminate  program  operation. 


Address  analyser  to  listen.  Send 
instruction  requesting  control 
setting  data,  and  read  data  into 
computer  as  integer  array  S1(K1) 


APPENDIX  2 


ehrblE  ^  bd  129 
lie  OPTION  BASE  0 

120  DATA  “0"  ,  "  1  “  ''2"  ,  .  "S"  •  "9" 

«  '*  R  '*  .  '*  C  **  .  **  0  ** 

900  integer  L(  15.),K(  is:- .LI  ..  L2.L? 

.  L4  .  L5  •  K  1 ,  K2  .  K3..  K4 ..  K5 ..  S 1  ..  S2 . 
S 

910  COM  INTEGER  N,S1<:10> 

920  SHORT  A2 
1100  OEF  FNC2<A*) 

1110  Cl=BTD^flf>  e  C3=2^LEN';At> 

11 20  C4=C3/2-.5  @  IF  C1>C4  THEN 
C1=C1-C3 

1130  FHC2=C1  8  FN  END 
3000  CLEAR  0  DISP  "  Front  panel 
control  and  sense" 

3015  WAIT  2000 

3020  REMOTE  N  8  LOCAL  LOCKOUT  7 
3030  OUTPUT  N  S"  8  Kl=e 
3040  ENTER  N  USING  ;  SI* 

3050  IF  Sl*="N"  THEN  3090 
30<50  Sl(;Ki>=HTD«;Sl*Cl,4J> 

3065  Kl=Kl+l  8  GOTO  3040 
3090  DISP  "  Which  controls  do  y 
ou  wish" 

3100  DISP  "to  sense  or  chanse" 
3110  DISP 

3120  OISP  “0  =  DISPLAY. MODE. SCAL 
E. PLOTTER" 

3130  DISP  "1  ^  INPUT. TRIG, FREQ, W 

INOOW" 

3140  OISP  "2  =  CURSOR. DISPLAY. ST 
ORE" 

3150  OISP  “3  =  CONT/HOLD.  I/'P  AMP 
F REQ  EXP " 

3160  CUSP  “4  ^  FREQ.  E.XPANSION  0 
RIGIN" 

3170  DISP  "5  REFERENCE  VOLTAGE 

■t 

31S0  DISP  "6  •  VERT  SCALE , MARKER 
. InT'OIF" 

3190  DISP  “7  ^  CURSOR  LOCATION" 
3200  DISP  "8  No.  OF  AVERAGES" 
3205  DISP  "9  ^  NO  CHANGE  OF  SETT 
INGS" 

3210  DISP 

3220  DISP  "  Select  control".; 
3230  INPUT  S2 

3240  ON  S2+1  GOSUB  5000.5300.560 
0 , 5900 . 6200 . 6500  6800 .7100. 
7400.4000 

4000  CLEAR  8  DISP  "  Data  a<iuisi 
tion  and  storage" 

4005  DISP  8  DISP  "Current  spectr 
al  or  time  data" 

4010  DISP  "may  be  stored. or  furt 
her  data  " 

4015  DISP  "may  be  a<tuired  under 
HP-85  control" 

4020  DISP  8  DISP  "K1  for  storage 
of  data" 


2's  complement  conversion  routinei 


Address  analyser  to  listen. 
Sense  control  status. 


Menu  1  :  control  groupings. 


4025  PiSP  ‘‘K.2  to  disable  compute 
r  control" 

4030  DfSP  “K3  to  c  ^ ’ nue  comput 
control" 

4035  ON  KEY#  1  GOTO  4U.: 

4040  ON  KEY#  2  GOTO  4500 
4045  ON  KEY#  3  GOTO  3000 
4050  GOTO  4050 

4055  CLEAR  S  DISP  "  Data  storaa 
e  programme  beine" 

4060  niSP  " loaded/ please  be  pati 
ent " 

4065  WRIT  5000 
4075  CHAIN  "NIC  #3" 

4500  DISP  “Spectrum  analyser  ret 
i.*rnin4  to" 

4505  DiSP  "local  control" 

45 J0  OUTPUT  N  ;"L" 

4515  DISP  8  DISP  8  DISP  "  GLAD  T 
0  HAVE  BEEN  OF  SERVICE" 

4520  END 

5000  •  CODE  0  SENSEyCONTROL 
5005  GOSUB  9500 

5010  DATA  "Resolution"/ "400-LINE 
*•  .  "1^3  OCT"/  "1/1  OCT"/ 

5015  DATA  "Display"/ "TIME"/ "INST 
" . "A" . "B"/ "INST  and  A"/ "INS 
T  and  B"/"A  and  B"."+"/"A+B 

It 

5020  DATA  "A-B". "B-A"/ "+"/ "A/B" / 

H  g  ^  11  _  U  ^  II 

5025  DATA  "Horisontal  scale"/ "LI 
N  XI “/"LIN  X4" / "LOG" / "LOG"/ 

11  M 

5030  DATA  "Vertical  scale". "LIN" 
."LIN" /"LOG  60dB"/";_OG  120d 
01*  1  **  !^  ** 

5050  DATA  "Plotter". "ORIGIN". "FU 
LL  SCALE" /'AT  C URSOR" ■ “STAR 
T  PLOT"/"*" 

5055  DATA  "Averaser  mode" /"SUM"/ 
"DIFF" / “EXPON" / "PEAK" . 

5060  DATA  “Averase  rumber-N" 

5075  RESTORE  5010 
5000  B$=DTB»(S1(S2>> 

5085  L<l)=BTD<B#Cl/23> 

5090  L<2)=BTD<B$C3/6]> 

5095  L<;3)=BTD<BtC7/7  3> 

5100  L(4)=BTD<B*C8/S3> 

5105  LC5>=BTD<BSC9/ 103) 

5110  L‘'6>=BTD<B$C11  /  123) 

5115  L<7)=BTD<B«C13/ 163) 

5120  C*=DTB*<S1<6)> 

5125  L1=BT0<C$C16/ 163) 

5130  L2=BTD<C*C10, 103) 

5135  L<3)=2*L<3)+L1 
5140  L<4)=2*L<.4)+L2 
5145  FOR  K2=l  TO  6 
5150  READ  E* 

5155  GOSUB  9800 


Returning  analyser  to  local 
control. 


Menu  2  :  current  settings  for 
control  group  based  on  analyser 
code  0. 


5l6e  NEXT  K2 

51€5  RERD  E*e  fll=2''L(7) 

5170  DISP  “  7“;TRB(5>;E*;TfiB(21> 
j  R1 

5175  Ql=8  e  GOSUB  9530 
5180  ON  K4  GOTO  5185.5195.5205.5 
220.5230.5240. 5250. 9900 

5185  RESTORE  5010 

5186  GOSUB  9700 

5187  Nl=l  e  N2=2  0  S3=S2  0  K5=K1 

5188  GOSUB  9850 

5189  GOTO  5000 

5195  RESTORE  5015 

5196  GOSUB  9700 

5197  Nl=3  0  N2=6  0  S3=S2  0  K5=kl 

5198  GOSUB  9850 

5199  GOTO  5000 

5205  RESTORE  5025 

5206  GOSUB  9700 

5207  N1.N2=7  0  S3=S2  0  K5=IP':K1/' 
2  > 

5208  GOSUB  9850 

5209  N1.N2=16  0  S3=6  0  K5=2«RMD< 
kl/2.2> 

5210  GOSUB  9850 

5211  GOTO  5000 

5220  RESTORE  5039 

5221  GOSUB  9700 

5222  H1,N2=8  0  S3=S2  0  k5=IP<Kl 
2  > 

5223  GOSUB  9850 

5224  H1.N2=10  0  S3=6  0  K5=2*RHD( 

¥1^2, 2> 

5225  GOSUB  9850 

5226  GOTO  5000 

5230  RESTORE  5050 

5231  GOSUB  9700 

5232  Nl=9  0  N2=10  0  S3=S2  0  K5=K 
1 

5233  GOSUB  9850 

5234  GOTO  5000 

5240  RESTORE  5055 

5241  GOSUB  9700 

5242  Nl=ll  0  N2=12  0  S3=S2  0  K5= 
K1 

5243  GOSUB  9850 

5244  GOTO  5000 

5250  RESTORE  5060 

5251  RERD  Ef 

5252  CLERP  0  DISP  " 

5253  FOR  K2=0  TO  10 

5254  OISP  TRB<.5>.:K2.;TRB<19>;2''K2 

0  NEXT  K2 

5255  DISP  0  DISP  "  Select  new  s 
et  t ine“ ; 

5256  INPUT  KS 

5257  Hl=13  0  N2=16  0  33=S2 

5258  GOSUB  9850 

5259  GOTO  5800 

5300  •  CODE  1  CONTROL/SENSE 


5305  GOSUB  5*500  2  :  current  settings  for 

5310  DBTfl  "  Sens  itivity".  "1 00mV "  ,  control  group  based  on  analyser 

200» V  ,  “  500i*V  • '  "  1 V/  “  ,  "  2V.' "  .  code  1 . 

n  ^  j  0^  It  ^  M  ^  M 

5315  DRTfl  "Trieser  level  "-1^2" 

.  '‘-l.'4“  .  “-1/8"  .  "-1/16"  .  "  +  1/ 

2*S  "  +  1/4"  ,  *-  +  1/8“  .  "  +  1/16" 

5316  DRTfl  "-TTL". "+TTL" . 

5320  DRTfl  "Test", "OFF'S  "ON". "»• 

5322  DRTfl  " Input  ", “D . C ."■"  +  “, "fl . 

5325  DRTfl  “Fre^i/orders " ,  "EXT"  ,  "  I 

5330  DRTfl  "Weishtins  window", "FL 
RT" , 'HANNING", "+", "flUTO" • ”t 

II 

5332  DRTR  "Fre*i  ranee"  ,  1 , 2, 5, 0 
5335  RESTORE  531*3 
5340  Bf=DTB*<Sl<S2>> 

5345  La>=E!TD<B*Cl,33> 

5350  L<2>=BTD<B«9,  113> 

5355  L<3)=BTD<BSC12, 123) 

5360  L<:4)=BTD<B«13,  133) 

5365  L';5>=BTD<B«14, 143) 

5370  L<6)=eTD<B»Cl5, 163) 

5375  L*:7)=BTD<B$C4,63) 

5376  L<8)=BTD<B<C7,83) 

5380  C4=DTBt<Sl<3)) 

5385  L1=BT0<C$C4,43) 

5390  L2=BTD<C«1,  13) 

5391  L3=BTD<CfC8,93) 

5392  L<4)=L2+2»L<4) 

5395  FOR  K2=l  TO  6 
5400  READ  ES 

5405  IF  K2=2  THEN  GOSUB  9600 
5410  GOSUB  9800 
5435  NEXT  K2 
54^0  READ 

5445  FOR  K3=0  TO  LCS) 

5450  READ  FIB  NEXT  K3 
5455  Fl=Fltl0*'L<7) 

5460  DISP  “  7" TflB<5)  .:Ef  iTflB<21) 
iFl 

5465  Ql=8  i»  GOSUB  9530 
5470  ON  K4  GOTO  5475,5485,5495.5 
505,5520,5530, 5540,9900 

5475  RESTORE  5310 

5476  GOSUB  9700 

5477  Nl=l  e  H2=3  8  S3=S2  8  K5=K1 

5478  GOSUB  9850 

5479  GOTO  5300 

5485  RESTORE  5315 

5486  GOSUB  9708 

5487  GOSUB  9620 

5488  Ml=9  8  N2=l 1  8  S3aS2  8  K5=K 
1 

5489  GOSUB  9850 

5490  N1,N2=4  8  S3=3  8  K5=K2 

5491  GOSUB  9850 

5492  GOTO  5380 


5495  RESTORE  532:® 

5496  GOSUB  9760 

5497  H1,H2;=12  0  S3=S2  0  •<r5=K.l 

5498  GOSUB  9858 

5499  GOTO  5300 

5505  RESTORE  5322 

5506  GOSUB  9700 

5507  H1.N2*13  0  S3=S2  0  K5«IP<K1 

^2> 

5508  GOSUB  9850 

5509  H1.H2=1  0  S3=3  0  K5=2»RMD<K 
1  2  /  £ 

5510  GOSUB  9850 

5511  GOTO  5300 

5520  RESTORE  5325 

5521  GOSUB  9700 

5522  N1.H2=14  0  S3=S2  0  K5=K1 

5523  GOSUB  9850 

5524  GOTO  5300 

5530  RESTORE  5330 

5531  GOSUB  9700 

5532  Ml =15  0  N2=16  0  S3=S2  0  K5= 
K1 

5533  GOSUB  9850 

5534  GOTO  5300 

5539  IF  L3<2  THEN  9400 

5540  IF  L3<2  THEN  9400 

5541  RESTORE  5332  0  CLEAR 

5542  READ  E»0  DISP  "  " ; E$ 

5543  Ll=10  0  L2=t9  0  L3=28 

5544  DISP  "  *">TAB<L1>:"  1 “ > TAB 

<L2>^“  2“ :TAB<L3>; "  5“ 

5545  DISP  " - 

5546  FOR  L4=0  TO  4 

5547  DISP  10''L4;TAB<L1>;3*L4;TAB 
<L2>. 3*L4+1 jTAB<L3>;3»L4+2 
0  NEXT  L4 

5548  DISP  10'''5;TAB<L1>^  15 

5549  DISP  0  DISP  "  Select  new  s 
et  t  ine" 

5550  INPUT  K1 

5551  Nl=4  0  N2=6  0  S3=S2  0  K5=IP 
<Kl/3:> 

5552  GOSUB  9850 

5553  Nl=7  0  N2=8  0  S3=S2  0  K5=K1 

MOD  3 

5554  GOSUB  9850 

5555  GOTO  5300 

5600  !  CODE  2  SENSE^CONTROL 
5605  GOSUB  9500 

5610  DATA  "Cursor  type"  ..  "OFF"  ,  "  + 
"  .  "SINGLE"  ,  "HARMONIC"  .• 

5615  DATA  "Cursor  readine" , "Hz" . 
"C  P  .  M  .  "  , 

5620  DATA  "Anno  tat  ion" , "DATA" , "G 
RATICULE" . "NO  DISPLAY" , "FUL 
L  "  .  "  T  " 

5625  DATA  "Cursor  ref . " . " 10" . "R" 
, "SET  R", 


1 


Menu  2  :  current  aettinga  for 
control  group  based  on  analyser 


code  2. 


5630  DftTfl  “Cursor  uni ts" . 

“dB", "»• 

5635  DBTfl  “Store  C  P  T . “  “OFF“ ,  “ 
STORING-, 

5640  OflTfl  “Store  mode" , “PLOT  PftG 
E“,"PLOT  ONLY", “flUX“, “» 

M 

5645  RESTORE  5610 
5650  Bf=DTP#<Sl<S2>> 

5655  L<l>=BTD<B»Cl,21) 

5660  L<2)*BTD<;B$C5,53> 

5665  L<:3>=BTD<B*C6,73> 

5670  Lf 4>=BTD<BfCie, 1 !□) 

5675  L<5>=BTD<B»C12, 133> 

5680  L<6>-BTD<B$[14, 143> 

5685  L<7>-BT0<B«C15, 163> 

5690  FOR  K2=l  TO  7 
5695  READ  E$ 

5700  GOSUB  9800 
5705  NEXT  K2 
5710  Ql=8  e  GOSUB  9530 
5715  ON  K4  GOTO  5725, 5735, 5745, 5 
755,5765,5775, 5785, 9906 

5725  RESTORE  5610 

5726  GOSUB  9700 

5727  Nl=l  e  N2»2  0  S3=S2  0  K5=K1 

5728  GOSUB  9850 

5729  GOTO  5600 

5735  RESTORE  5615 

5736  GOSUB  9700 

5737  N1,N2*5  0  S3=S2  0  K5=K1 

5738  GOSUB  9850 

5739  GOTO  5600 

5745  RESTORE  5620 

5746  GOSUB  9700 

5747  Nl=6  0  N2=7  0  S3=S2  0  K5=K1 

5748  GOSUB  9850 

5749  GOTO  5600 

5755  RESTORE  5625 

5756  GOSUB  9700 

5757  Nl=10  0  N2=ll  0  S3=S2  0  K5= 
K1 

5758  GOSUB  9850 

5759  GOTO  5600 

5765  RESTORE  5630 

5766  GOSUB  9700 

5767  Nl«12  0  N2=13  0  S3*S2  0  K5= 
Kl 

5768  GOSUB  9850 

5769  GOTO  5600 

5775  RESTORE  5635 

5776  GOSUB  9700 

5777  N1,N2»14  0  S3=S2  0  K5=K1 

5778  GOSUB  9858 

5779  GOTO  5600 

5785  RESTORE  5648 

5786  GOSUB  9700 

5787  N1«15  0  N2«16  0  S3«S2  0  K5= 
K'l 

5788  GOSUB  9850 


5789 

5980 

5905 

5910 

5920 


5921 

5925 


5930 

5935 

5940 

5945 

5950 

5955 

5960 

5965 

5970 

5975 

5985 

5990 

5995 

6000 

6005 

6010 

6015 

6020 

6025 

6030 

6035 

6040 

6045 

6050 

6055 


6060 

6061 

6062 

6063 

6064 

6070 

6071 

6072 

6073 
6076 
6078 

6080 


GOTO  5600 

!  CODE  3  SENSE/'CONTROL 
G0SU6  9500 

DATA  "A-wei^htin^“. "OFF", “0 
N  **  i  **  4c 

DATA  "Amplitude", "OVERLOAD" 
"-6dB", "-12dB", "-18dB", "-2 

4dB" 

DATA  ‘'-30dB",  •-36dB",  "-42dB 

"  . 

DATA  "Fre^.  exp.",“PG2  500H 
z","RGl  2000Hz", "OFF"," 
*“ 

DATA  "Start  A" , "OFF" , "ACTI V 
DATA  "Stop  A", "OFF", "ACTIVE 

II  ^ 

DATA  "Cont  A" , "OFF" , "ACTIVE 

n  ^  I'  ^ 

DATA  “Transfer  A-B","OFF"," 
ACTIVE"  , 

DATA  "Data  capture" , "OFF" , " 
PRESENT"  , 

DATA  "Data  hold", "RELEASE", 
"HOLD",  *•»“ 

DATA  "Auto  arm", "OFF", "ARHE 
0  “  .  "  ♦  " 

RESTORE  5910 
B»=0TBf<Sl<:S2>) 
L<l)=BTD<B#r2,23) 
L<2>=BTD<:B»C5,73> 
L<3)=BTD<BSC8,93> 
L<4>=BTD<6«C10. 103> 
L<5)=BTD<BfCll, 113> 
L<6>=BTD<BSC12, 123> 
H7)=BTD<B»C13,  13a> 
L<8)=BTD<Bftl4, 14D> 
L<9)=BTD<BSC15, 153> 

L< 10)=BTD<BfC16, 163) 

FOR  K2=l  TO  10 
READ  E« 

GOSUB  9800 
NEXT  K2 

Ql=ll  0  GOSUB  9530 

OH  K4  GOTO  6060,9408,6070,6 

090,6100,6110,6120,9400,613 

0,6140,9900 

RESTORE  5910 

GOSUB  9700 

N1,N2=2  9  S3=S2  9  K5=K1 
GOSUB  9850 
GOTO  5900 
RESTORE  5925 
GOSUB  9700 

Ml=8  9  N2»9  9  S3=S2  9  K5=K1 
GOSUB  9850 
IF  Kl>=2  THEN  5980 
IF  Kl=e  THEN  Kl=8  ELSE  Kl=l 
0 

HI  =4  9  N2=6  9  S3=l  9  K5=IP-' 
Kl/'3> 


Menu  2  :  current  settings  for 
control  group  based  on  analyser 
code  3* 


6981 

G03UB  9850 

6082 

Hl«7  0  N2=8  0  S3=l  0  K5=K1 

MOD  3 

!  6083 

GOSUB  9850 

1  €084 

GOTO  5900 

i  6090 

RESTORE  5930 

]  6091 

GOSUB  9700 

:  6092 

Nlsie  0  N2=10  0  S3»S2  0  K5= 

K1 

i  6093 

GOSUB  9850 

i  6094 

GOTO  5900 

i  6100 

RESTORE  5935 

r|  6101 

GOSUB  9700 

t  6102 

Hl=ll  0  H2=ll  0  S3=S2  0  K5= 

K1 

j  6103 

GOSUB  9850 

6104 

GOTO  5900 

6110 

RESTORE  5940 

611  1 

GOSUB  9700 

6112 

Hl=12  0  N2=12  0  S3=S2  0  K5= 

K1 

6113 

GOSUe  9850 

6114 

GOTO  5900 

;  6120 

RESTORE  5945 

6121 

GOSUB  9700 

6122 

Hl=13  0  N2=13  0  S3=S2  0  K5= 

K1 

6123 

GOSUB  9850 

6124 

GOTO  5900 

’  6130 

RESTORE  5955 

i  6131 

GOSUB  9700 

1  6132 

Nl»15  0  N2=15  0  S3=S2  0  K5= 

K1 

6133 

GOSUB  9850 

6134 

GOTO  5900 

6140 

RESTORE  5960 

6141 

GOSUB  9700 

6142 

Hl=16  0  rt2=16  0  S3=S2  0  X5= 

K1 

6143 

GOSUB  9850 

6144 

GOTO  5900 

6200 

!  CODE  8  COHTROL/'SENSE 

Menu  2  :  current  settings  for 

6205 

GOSUB  9500 

control  group  based  on  analyser 

6210 

OftTR  "Expander  oriein" 

code  8e 

6215 

RESTORE  6210 

6220 

B**0TBt<Sl<S2>> 

6225 

C#=DTBf<Sl<3)) 

6230 

L2=l-BTD<CfC3,33) 

6235 

R1»0 

6240 

FOR  L=1  TO  4 

6245 

L1=<L-1>*4+1 

6250 

L^L)=15-BT0<BfCLl,Ll+33> 

6255 

fll=Rl+L<L)*10'‘<'5-L) 

6260 

NEXT  L 

6265 

Rl=fll+5*L2 

6270 

RERO  ES 

6275 

OISP  "  l";TflB<5>iE*;TflB<21> 
iRl 

6280 

01^2  0  GOSUB  9530 

i 

6285 

1 

OH  K4  GOTO  6300/9900 

J 

63ee  RESTORE  6218 
6305  READ  Ef 

6310  CLEAR  e  DISP  "  "iE*  0  DISP 
6315  IHPUT  F* 

6320  rt«=“00000"  0  flfC6-LEN<Ff >  5 
J=F* 

6325  Ff>n«C1.43  0  A«»R«C53 
6330  IF  ««="5"  THEN  1(5=0  ELSE  K5 
=  1 

6335  N1,N2=3  0  S3=3 
6340  GOSUB  9850 
6345  fl$="“  0  S3=S2 
6350  FOR  L=1  TO  4 
6355  Nl=4*L-3  0  N2=4»L 
6360  K5=15-VfiL<F*CL,L3) 

6365  GOSUB  9850 
6370  NEXT  L 
6375  GOTO  6200 

6500  !  CODE  9  SENSE^CONTROL 

6505  GOSUB  9500 

6510  DATA  "Ref.  voltaee" 

6512  RESTORE  6510 
6515  Bf=DTBf<Sl<S2)> 

6520  L(1)=FNC2<B«1.73) 

6525  L<2)=BTD<B»C8. 163> 

6530  A2=L<2>/'512«2''L(1> 

6535  READ  ES 

6540  DISP  "  l"iTAB<5>;E»jTAB<2I) 
;@  DISP  USING  "0  DDE"  ;  A2 
6545  Ql=2  0  GOSUB  9530 
6550  ON  K4  GOTO  6555.9990 
6555  RESTORE  6510 
6560  CLEAR  0  READ  E$ 

6565  DISP  ES  0  DISP 
6570  IHPUT  R2 
6575  Ll=5  0  L2=-32  0  L3=l 
6580  L2=L2+L3*2''L1  0  L1=L1-1 
6585  IF  A24:2^L2>  =  1  THEN  L3=-l  0 
GOTO  6580 

6590  IF  A2:F2''L2<.  .5  THEN  L3=l  0  G 
OTO  6580 

6595  Ll  =  INT<A2*2-*'<L2+9)+.5) 

6600  A4=DTB4';L1)  0  B4C8 . 1 63=A4C8 
..  163 

6605  AS=DTBf<:BINCHP<L2)  +  l  > 

6610  B«C1.73=ASC10. 163 
6615  Sl<S2>=BT0<Bf > 

6620  GOTO  6500 

6800  •  CODE  10  SENSE ''CONTROL 
6805  GOSUB  9500 

6810  DATA  "Averaeer". "OFF". "RUNN 
ING". 

6815  DATA  " Int/Oi "OFF " 
INT-. "DIFF' , 

6820  DATA  "Double" . "OFF'S  "ON" . 

II 

6825  DATA  "Mar ker " . "OFF" . "ON" . "+ 

6830  DATA  "Vertical  scale", "LIN 
X","LIN  /","LOG  +","LOG 


Menu  2  :  current  settings  for 
control  group  based  on  analyser 
code  9* 


Menu  2  :  current  settings  for 
control  group  based  on  analyser 
code  10. 


6835  RESTORE  68ie 
6840  B«sDTB«<S1<S2>> 

6845  L<  1>«6T0<.BSC9.93> 

6850  L<2>»BTD<B«C11 • 123> 

6855  L<3>=eT0<efC13. 133> 

6860  L^4>>eTDCB«C14> 153> 

6865  L<5>*BT0<e«Cl. 13) 

6870  L<6)«BT0<BSC4.83) 

6875  C*»DTB#<S1<0>) 

6880  L1»BTD<C«C8«83) 

6885  L<5)»2*L1+L<5> 

6890  FOR  K2al  TO  4 
6895  READ  E« 

6900  GOSUB  9800 
6905  NEXT  K2 
6910  READ  Ef 
6915  FOR  K3*0  TO  L<5) 

6920  READ  F00  NEXT  K3 

6925  IF  L<5><1.5  THEN  R1=2^L<6> 

0  G»="-  ELSE  A1»10»L<6)  0  G 
S=-dB" 

6930  DISP  "  5“;TAB<5)iEf ;TRe<22> 
;F«;AliG4 

6935  Ql»6  0  GOSUB  9530 
6940  ON  K4  GOTO  9400,6945/6955,6 
965,6980,9900 
6943  RESTORE  68l5 

6946  GOSUB  9700 

6947  HI =11  0  H2=12  0  S3=S2  0  K5= 
Kl 

6948  GOSUB  9850 

6949  GOTO  6800 

6955  RESTORE  6820 

6956  GOSUB  9700 

6957  N1,N2=13  0  S3=S2  0  K5=K1 

6958  GOSUB  9850 

6959  GOTO  6800 

6965  RESTORE  6825 

6966  GOSUB  9700 

6967  Nl=14  0  H2=15  0  S3=S2  0  K5= 
Ki 

6968  GOSUB  9850 

6969  GOTO  6800 

6980  RESTORE  6830  0  CLEAR 
6982  DISP  "  ";E$ 

6984  IF  L<;5)>1.5  THEN  L<;5)=2  ELS 
E  L<5>=0 

6986  DISP  "  0";TAB<7> i “GAIN" 

6988  DISP  "  1"; TAB<7>, “ATTENUATI 
ON" 

6989  DISP  0  DISP  "  Select  new  s 
et  tine*' ; 

6990  INPUT  Kl 
6992  L<5>=L<:5>+K1 

6994  Nl,H2«l  0  S3=S2  0  K5«K1 
6996  GOSUB  9858 
6998  RESTORE  6830  0  CLEAR 
7000  READ  Ef0  DISP  '  ";E> 

7002  FOR  K3«0  TO  L<5) 

7004  READ  F«t  NEXT  1^3 


7006.  IF  Lv5)>l  5  THEN  7030 
7008  FOR  K2=9  TO  12  STEP  2 
7010  DISP  K2iTfte<:5>.:Ft;2''K2;TflB< 

16>  i  K:2+1  ,  TflB<21  >  ;  F»;  2''<K2+1 

> 

7012  NEXT  <2 

7014  FOR  k2=13  TO  16 

7016  DISP  TflB<8>;K2iTfiB< 13>iFf;2 

'''K2 

7018  NEXT  K2 

7020  GOTO  7050 

7030  FOR  K2=0  TO  10 

7032  DISP  K2.iTftB<7)  ;F*;  10*K2 

7034  NEXT  K2 

7050  DISP  0  DISP  "Select  new  set 
tine*  i 

7052  INPUT  K5 

7054  Nl=4  0  N2=8  0  S3=S2 

7056  GOSUB  9850 

7058  GOTO  6806 

7100  •  CODE  12  SENSE-'CONTROL 
7105  GOSUB  9500 

7110  DflTfl  "Cursor  f  ree  .  "  .  "Hz"  ,  2  :  current  settings  for 

"  "BfiND  <l-.^3  OCT)"..  "BAND  1'  control  group  based  on  analyser 

1  OCT","*"  code  12. 

7112  ORTH  1,2,5, "*" 

7115  RESTORE  7110 
7120  B*=DTe$<;Sl<S2>) 

7125  L(1>=BTD<BSC2, 10]) 

7130  Cf=DTBS<;SU0)) 

7135  L1=BTD(C$C1,23> 

7140  READ  Et 

7145  FOR  i<3=0  TO  LI 

7150  READ  F00  NEXT  KS 

7152  READ  G*0  IF  Gf#"*"  THEN  715 

2 

7155  IF  L1<1  THEN  7175 
7160  IF  Ll>2  5  THEN  La>  =  <:L<l)-H 
••/3 

7165  AI=L<1>  e  GOTO  7230 
7175  C$=DTBfCSl<3)) 

7180  L2=BTD<CfC8,81) 

7185  L5=1-BTD'!C*C3,33) 

7190  C*=DTB*<S1<4)) 

7195  A1=0  0  IF  L2=l  THEN  7230 
7200  FOR  L=J  TO  4 
7205  L4=<L-1)*4+1 
7210  L5=15-BTD<C»CL4,L4+33) 

7215  A1»R1+L5JH0''<5-L) 

7220  NEXT  L 
7225  A1»A1-^5*L3 
7236  Cf=DTB*<Sl<l)) 

7235  L3=BTD<CfC4,63> 

7240  L2»BT0<C$C7,83) 

7245  FOR  K3*0  TO  L2 
7250  READ  Fie  NEXT  K3 
7255  F1=F1»10^L3 
7260  F2«Al^L<l)^4e0»Fl 
7265  DISP  "  1-;TAB<5);E$;TAB<21) 
iF2iFf 


7270 

7275 

7280 

7285 

72«>0 

7295 

7300 

7305 

7310 

7315 

7320 

7325 

7330 


7335 

7340 

7345 

7400 

7405 

7410 

7413 

7415 

7420 

7425 

7430 

7435 

7440 

7445 

7450 

7455 

7460 

9400 

9485 

9410 

9415 


9500 

9505 

9510 

9530 

9535 

9540 

9545 

9550 

9600 

9605 

9610 


©1=2  e  GOSUB  9530 
OS  K4  GOTO  7280,9900 
RESTORE  7110  e  CLEAR 
READ  ESe  OISP  “  -iE$i 
FOR  K3=0  TO  LI 
READ  Ft 

NEXT  K3  0  OISP  “  "  F* 

DISP  0  DISP  “  Frequency  ra 
n<9e  p©riii  t  ted  = 

DISP  Al;"Hz  to"  +01. i  “Hz" 

OISP  0  DISP  "  'elect  new  s 
et  t ine" ; 

INPUT  F2 

L<1  )  =  INT<400»<F2-A1  )-^Fl+  5> 
IF  L<1)<0  OR  L<1>>400  THEN 
OISP  “  OUT  OF  RANGE"  0  GOTO 
7315 

Nl=2  0  N2=10  0  S3=S2  0  K5=L 

Cl) 

GOSUB  9850 
GOTO  7100 

•  CODE  13  SENSEz-CONTROL 
GOSUB  9500 

DATA  “Aves  coeeleted" , 

DATA  "Averaeer", "<  N",">  N“ 

RESTORE  7410 
B*=DTBf<SlCS2>.) 
L<1>=BTD<6«C1, 103) 

READ  Ef 

DISP  "  1"; TABC5);E*;TAB<21) 
;L<1)  0  READ  F$ 
L<2)=BTD<B#C11, 1 13) 

IC2=2  0  READ  Ef 

GOSUB  9800 

©1=3  0  GOSUB  9530 

ON  K4  GOTO  9400,9400,9900 

CLEAR 

DISP  "  Impossible  to  chanee 
parameter" 

DISP  "re^iuested.  "  0  BEEP  0 
WAIT  5000 

ON  S2+1  GOTO  5000,5300,5600 
. 5900 , 6200 , 6500 , 6888 ,7100,7 
400 

CLEAR  0  DISP  •  Current  con 
trol  set  tines" 

OISP 

RETURN 

DISP  ei;TAB<5) : “No  chanee  o 
t  settines" 

DISP 

OISP  "  Select  control  to  be 
chaneed" i 
INPUT  K4 
RETURN 

IF  L1=0  THEN  9610 
IF  L'2)>3  5  THEN  L<2>«9  ELS 
E  L<2>«8 
RETURN 


'No  chanee  o 


Menu  2  :  current  settings  for 
control  group  based  on  analyser 
code  13* 


9620  IF  Kl<7.5  THEN  K2»0  ELSE  K1 
=Kl-5  e  K2=l 
9625  RETURN 
9700  READ  E«0  Kl.K2=-l 
9705  CLERR  0  DISP  “  " ; EF 

9710  READ  F»e  K1=K1-H  0  IF  Ff="+ 
"  THEN  9710 

9715  IF  Ff="l:“  THEN  9730 
9717  |f2=K2+l  0  K<'K2>=K1 
9720  OISP  TflB<5);K2:TRB<20);F# 
9725  GOTO  9710 

9730  OISP  0  DISP  "  Select  new  s 
et  t ine" > 

9735  INPUT  K2 
9740  K1=K<K2> 

9745  RETURN 

9800  FOR  K3=0  TO  L(K2) 

9805  READ  FS0  NEXT  K3 
9810  DISP  K2iTRB<5>iEf ;TRB<22).:F 
« 

9815  READ  Ff 

9820  IF  F$#-*“  THEN  9815 
9825  RETURN 

9850  A«sOTB«(K5>  0  B$sDTB«<Sl <S3 

9855  A#=AfC16-<N2-Hl>, 163 
9860  B«CNl,N23sAS  0  S1<S3>=BTD<B 

«> 

9870  RETURN 

9900  RESTORE  128 

9905  FOR  K1=0  TO  7 

9910  READ  S2S 

9915  S1#*DTH«<S1<K1))I.S2$ 

9920  OUTPUT  N  ;Slf 
9925  NEXT  K1  0  GOTO  3000 


Displays  all  possible  settings 
as  given  by  appropriate  data 
statements. 


Selects  and  displays  curent 
settings  from  appropriate  data 
statement . 


Sends  all  front  panel  control 
instructions  to  analyser. 


APPENDIX  3 


100  COM  INTEGER  N..  SlUe.' 
lie  DIM  Nl#t^03 
120  ENABLE  KBD  229 
130  INTEGER  LI  •  L2- L3.  L4  L5.- Kl  •  K2 
,k3..K4,K5,Nl,N2,S>F 
140  SHORT  V 
150  OEF  FhC2<.A«> 

160  C}«eTD^H*>  0  C3=2*LEN<H#) 

170  C-»*C3>'2-  5  e  IF  C1>C4  THEN  C 
1=C1-C3 

180  FNC2=C1  0  FN  END 
200  DEP  FNL0<2>  =  ie''<;LGT<Nn+2/ 
S»LGT<H2/'H1  >  > 

220  DEF  FHL1CZ>  »  W1 +2^S»< W2-W1 ) 
400  DATA  1.2.5 

410  DATA  "FLAT“. "HANNING". "A 
UTO" 

420  DATA  2000.500 
430  DATA  0. 1 .2.3.8.9.A.C.D 
1000  CLEAR  0  DISP  "  Data  a^uisi 
tion  and  storage" 

1005  DISP  0  DISP  -Current  seectr 
al  or  tine  data" 

1010  DISP  "may  be  stored. or  furt 
her  data  " 

1015  DISP  "may  be  a^uired  under 
MF-85  control" 

1020  DISP  0  DISP  "K1  for  current 
data" 

1025  DISP  "K2  for  computer  contr 
ol  '• 

1030  ON  KEY#  1  GOTO  1045 
1035  ON  KEY#  2  GOTO  400© 

1040  GOTO  1046 
1045  G0SU6  7000 
1160  B#«DTB#<S1<0>> 

1165  L3=BTD<B#C3.63) 

1170  IF  L3=0  THEN  L4=8300  ELSE  L 
4=3300 

1175  B#=DTBf<Sl<l)> 

1180  L5»BT0<B#C1  33> 

1185  RESTORE  400 
1190  FOR  K1=0  TO  L5  MOD  3 
1195  READ  LI 
1200  NEXT  K1 

1205  A2«L1*10-<L5  DIV  3-1 > 

1210  L5sBTD(B#C7.83> 

1215  RESTORE  406 
1220  FOR  K1»0  TO  L5 
1225  READ  LI 
1230  NEXT  K1 
1235  L5«BT0<B#C4.63> 

1240  F1*L1*10''L5 
1245  B#»0TB#<S1<3)> 

1250  L1=BT0<B$C8.93> 

1255  IF  Ll-3  THEN  F2»0  8  GOTO  12 
95 

1260  Ll=BT0<efC3.33> 

1265  IF  Ll*l  THEM  F2*0  ELSE  F2«5 
1270  B#«0TH#<S1<4)> 


2*8  complement  conversion  routine. 


Selects  current  display  contents 
or  computer  control. 


1275  POR  K2»l  TO  4 

1280  L3»15-HT0<BSCK2,K23) 

1285  F2=F2+L3*10^<5-K2) 

1290  NEXT  K2 
1295  B*=DTB#<Sl<5)) 

1300  Ll»FNC2<B$Cl/7]> 

1303  L2»BTO<B«C8. 163> 

1310  fl3=L2/5l2»2^Ll 
1315  CREATE  N20,1.L4 
1320  ASSIGN#  1  TO  N2f 
1325  IF  L4S8300  THEN  2000 
1330  BS=DTB#<S1<0)) 

1335  Li=BTD<B#Cll, 123> 

1340  Hl=2'‘BTD<B$i:i3, 163) 

1345  IF  Ll»2  THEN  1365 
1350  DISP  8  OISP  "  Haitink  for  a 
vara^iin^  to  end." 

1355  L2«SP0LL<N)  DIV  2  MOD  2 
1360  IF  L2=0  THEN  1355 
1365  CLEAR  8  OISP  "  Data  trans 
♦er  procedine" 

1370  B#=DTB#<SU  D) 

1375  L3=BTD<B«15.  163) 

1377  RESTORE  418 
1380  FOR  K1=0  TO  L3 
1385  READ  C# 

1390  NEXT  K1 

1395  PRINT#  1  ;  "S" , 480. Nlf . Cf . F 
1,F2,A3 

1400  OUTPUT  N  ;“T" 

1405  ENTER  N  ^  A# 

1410  B4»0TB#(HT0(A#C1.43>> 

1415  N2sBT0<B#Cl. 103) 

1420  IF  Ll=2  THEN  A2=A2^< 1-EXP<- 
<N2/N1>>> 

1425  ENTER  N  USING  "V.,XK"  ;  A# 
1430  IF  A#=“R"  THEN  5100 
1435  B#=DTB#<HTD<H#C1,43)) 

1440  l1=FHC2<B«1  »63)  8  L2=FNC2( 
BfC7, 153) 

1445  V=SQR<;L2/'256*2''L1)*A2 
1450  PRINT#  1  ;  U 
1455  GOTO  1425 

2000  PRINT#  1  ;  "T", 1024,N1$,F1, 

F2 

2005  OUTPUT  N  ;"T- 
2010  ENTER  N  USING  i  At 

2015  IF  A#="n"  THEN  5100 
2020  B#sOTB#<HTO<A«Cl .43)) 

2025  U*A2«1  4«FNC2<BfCl . 123)^294 
8 

2030  PRINT#  1  J  U 
2035  GOTO  2010 

4000  CLEAR  8  OISP  "  Coaputer  con 
t^’olled  data  aeuisiti 

on" 

4010  OISP  8  OISP  "Maxiaua  fre^ue 
ncv  required"; 

4015  INPUT  «2 

4026  DISP  “Mtniaua  frequency  ran 
ui red" * 


Initialises  tape  drive. 


Reads  spectral  data  from  analyser 
and  stores  it  on  tape. 


Reads  time  lata  from  analyser  and 
stores  it  on  tape. 


For  computer  control  :  takes  data 
requirements  from  keyboard  and 
decides  on  frequency  range  necessary. 


4025  INPUT  Ul 

4030  RESTuPE  420 

4035  READ  R1,P2 

4040  RESTORE  400 

4045  READ  L CO > . L < I > , L < 2> 

4050  i4=M2 

4055  G0SU6  8000 

4060  R3=L<.K1  >»10'‘K2 

4062  IF  R3> 100000  THEN  R3= 108000 

4065  R=mN<:Rl,HIN<R2.R3)> 

4070  OISP  "Narrowest  bandwidth  i 
i 1  ter" 

4075  DISP  "  At  =“;R/'400;  "Hz" 

4080  DISP  “It  this  is  satistacto 
r'-'  press  Kl“ 

4085  DISP  "To  chanee  tre«uency  p 
ress  K2“ 

4090  ON  KET#  1  GOTO  4105 
4095  ON  KEY#  2  GOTO  4000 
4100  GOTO  4100 

4105  DISP  “What  tilter  bandwidth 
do  you  re<iuire"; 

41 10  INPUT  D1 

4115  IF  Dl<R/400  THEN  4078 
4120  IF  Dl<R3y400  THEN  4155 
4122  RESTORE  490  0  Ml =3 
4125  FOR  K1=0  TO  2 
4127  READ  LCKl) 

4130  L<K1 )=L<Kl>y400 
4135  NEXT  K1 
4140  W=Dly2 
4145  GOSUB  8000 

4147  D2=L<K1 )»10^K2 

4148  IF  D2>250  THEN  02=250 
4150  GOTO  4165 

4155  IF  Dl>MflX<Rl,R2>y400  THEN  D 
2=MflXr;Pl  ,R2)y400  0  GOTO  416 
2 

4160  O2=MIN<;Rl.R2)y400 
4162  IF  D2=P 1^400  THEN  Ml=l  ELSE 
M1=0 

416o  DISP  "Filter  bandwidth  it  = 
"  :D2.:  "Hz" 

4170  DISP  "It  this  is  satistacto 
rv  press  Kl" 

4175  DISP  "To  chanee  bandwidth  p 
ress  k2'‘ 

4180  ON  KEY#  1  GOTO  4195 
4185  ON  KEY#  2  GOTO  4105 
4190  GOTO  4190 
4192  R=D2*400 

4194  Wl=MftX<Wl,D2> 

4195  ON  KEY#  1,"LINERR"  GOTO  816 
0 

4200  ON  KEY#  2,"  LOG"  GOTO  8150 
4205  CLEAR  0  KEV  LABEL 
4210  DISP  "Logarithmic  or  linear 
♦regency  scale"  0  DISP 
4215  GOTO  4215 

4220  DISP  "How  many  averages  per 
data  point" 


4225  INPUT  L5e  K3=0 
4230  K3=K3+1 
4235  R4=2'‘K3 
4240  IF  fl4<L5  THEN  4230 
4245  DISP  e  DISP  "  ";fl4; "average 
s  mill  be  made* 

4250  S2=0 

4255  Nl=l  0  N2=2  0  k5=0 
4260  GOSUB  8200 
4265  Nl=3  0  N2=6  0  K5=2 
4270  GOSUB  8200 

4272  Nl=7  0  N2=7  0  K5=0 

4273  GOSUB  8280 

4275  Nl=ll  0  N2=12  0  K5=0 
4280  GOSUB  8200 
4285  Nl=13  0  H2=16  0 
4290  GOSUB  8200 
4295  GOSUB  8250 

4300  S2=l  0  Hl-15  0  N2=16  0  K5=3 
4305  GOSUB  8200 

4307  Hl=l  0  H2=3  0  K5-0 

4308  GOSUB  8200 
4310  GOSUB  8250 

4315  S2=2  0  Hl=l  0  N2=2  0  K5=0 

4320  GOSUB  8200 

4325  GOSUB  8250 

4330  GOSUB  8300 

4335  B4=DTB4<S1<3>) 

4340  IF  B»C15, 163=*00“  THEN  4365 
4345  S2=3  0  N1.N2=15  0  K5=l 
4350  GOSUB  8200 
4355  GOSUB  8250 
4360  GOTO  4330 

4365  S2=3  0  Nl=8  0  N2=9  0  K5=H1 
4370  GOSUB  8200 

4372  N1.H2=3  0  K5=l 

4373  GOSUB  8200 
4375  GOSUB  8250 

4380  S2=6  0  Hl  =  14  0  N2=‘15  0  K5s0 

4385  GOSUB  8208 

4390  H1.H2=16  0  K5=0 

4395  GOSUB  8200 

4400  GOSUB  8250 

4410  S2=l 

4415  Nl=4  0  N2=6  0  K5=INT< LGT<R> 

> 

4420  GOSUB  8200 

4425  L1*R-'10^K5 

4430  IF  LlaS  THEN  Ll»3 

4435  Nl=7  0  N2=8  0  K5=L1-1 

4440  GOSUB  8200 

4445  GOSUB  8250 

4450  GOSUB  7000 

4452  IF  «2»0  THEN  Q4="LIN“  ELSE 
e4«“L0G“ 

4455  CRERTE  N2»,  1  >  10O-i-16«S 
4460  RSSIGN*  1  TO  N2« 

4465  PRINT*  1  ;  Q*, S-t-1 , Nl*. 02. R4 

4466  PRINT  0  print  *  Data  file 
-  "iN2* 


Sends  setting  up  instructions  to 
analyser. 


Initialises  tape  drive. 


^468  PRINT  C*  PRINT  Nlf 
44Tti  PRINT  @  PRINT  Qf ;  “  scale  yi 
th" . S+1 ; "data  points" 

447i  PRINT  «  PRINT  "  it  =".:D2.:’' 

Hz  ;  li4  ;•  averages  " 

4473  PRINT  R  PRINT  "  Fre<i  ^Hz 
Moltaee  8  PRINT 

4475  K5=0 
4477  r I =0 

4430  FOR  K2=0  TO  20 
4485  GOSUB  8383 
4490  fi^=0TB$<Sl<3)> 

4495  IF  R<C5.73="000"  THEN  K.1=K1 
■►1 

4500  NEXT  K2 

4505  IF  K1>0  THEN  K5=K5+1  ELSE  4 
530 

4510  IF  K5>7  THEN  GOTO  8600 

4512  S2=l  0  Nl»l  8  N2=3 

4515  GOSUB  8200 

4520  GOSUB  8250 

4525  GOTO  4477 

4530  IF  Hi#3  THEN  5008 

4535  F=0  0  K2=0 

4540  WRIT  IHT<  1000/-D2) 

4545  GOSUB  8750 
4550  GOSUB  8350 
4555  GOSUB  8400 
4560  GOTO  5100 
5000  K2=0 
5005  GOSUB  8500 

5010  F=t0»<H8X<:R5-R/'5.0>  DIU  10> 
5015  GOSUB  8700 
5020  WRIT  100-H  . 1»INT<1000^D2> 
5025  GOSUB  8750 
5030  GOSUB  8350 
5035  GOSUB  8400 
5040  IF  K2>S  THEN  5100 
5045  F=  1 0* < NRX  <  t,  fl5+fi6  >  'Z ,  fi5-R/'5) 
DIV  10> 

5050  GOTO  5015 
5100  PSSIGN#  1  TO  * 

5105  ClERR  e  DISP  "  K1  to  cHanee 
anal'^ser  controls" 

5110  DISP  "  KZ  to  store  further 
data" 

5112  DISP  "  K3  to  end  proeraw" 
5115  ON  KEY#  !.‘ CONTROL'  GOTO  52 
00 

5120  ON  KEY#  2"  DRTR"  GOTO  100 
5122  ON  KEY#  3  ,.  ‘  END  "  GOTO  5150 
5125  KEY  LABEL 
5130  GOTO  5130 
5150  OUTPUT  N  >"L" 

5155  CLEAR  0  DISP  6  DISP  0  DISP 
5160  DISP  "  Glad  to  have  been  o 
t  servMce" 

5165  END 

5200  DISP  0  DISP  "Please  be  pati 
ent  while  next  part  of  p 
roeram  is  beine  init 

ialised" 


Prints  out  information  on  built-in 
printer. 


I 


wiets  input  sensitivity  of  analyser. 


Takes  data  from  analyser  and 
records  it  on  tape  and  on  printer. 


Choice  of  further  action. 


5205  Wf*IT  4006 
5210  CHAIN  “NIC  #2“ 

7000  CLEAR  e  DISP  "Irs-ert  data  t 
ape  into  tape  drive" 

7005  ON  ERROR  GOTO  7087  0  GOTO  7 
010 

7007  IF  ERRN#62  THEN  DISP  "TAPE 
ERROR"  e  PAUSE 
7010  REMIND 
7015  OFF  ERROR 
7020  PRINT  ALL 
7025  ON  ERROR  GOTO  7070 
7030  PRINT  e  CAT  0  NORMAL 
7035  OFF  ERROR 

7040  DISP  e  DISP  "Is  this  the  ta 
pe  to  be  used".: 

7045  INPUT  Qf0  IF  QfC1^13="Y"  TH 
EN  7090 

7050  DISP  "Replace  tape  in  tape- 
driv©  ” 

7055  DISP  “Press  key  K1  when  rea 
d'^ .  " 

7060  ON  KEY#  1  GOTO  7005 

7065  GOTO  7065 

7070  IF  ERRN#73  then  7907 

7080  ERASETAPE 

7085  GOTO  7030 

7090  CLEAR  e  DISP  "Give  inlormat 
ion  to  eo  with" 

7095  DISP  "data  (<40  chars)") 

7  00  INPUT  Nl$ 

7i05  DISP  "Give  name  for  data  ti 

7110  INPUT  N2f0  L1=MIN<6^ LEN<N2f 
)>  e  N2*=N2fEl.L13 
7115  RETURN 
8000  K2s0 
8005  K1=0 

8010  IF  LCKl  >»10''K2>=M  THEN  RETU 
RN 

8015  K1=K1-H  ^ 

8020  IF  Kl*3  THEN  K2=K2+1  0  GOTO 
8005  ELSE  8010 
8100  H2»0 

8105  DISP  "How  many  data  points 
resui red" ) 

8110  INPUT  S 
8115  GOTO  4220 
8150  «2»1 

8155  DISP  "How  many  data  points 
per  decaoe") 

8160  INPUT  L5 

8165  S*CEIL<L5*LGT<W2yWl>> 

8170  DISP  "Total  no.  of  points  = 
"  :  S 

8175  GOTO  4220 
6200  AS»DTB#(k5) 

8205  e*=DTB$<Sl(S2>) 

8210  A»«Afri6-<N2-Nl>, 161 
8215  B«Hl.H21»Af 


Subroutine  for  setting  up  and 
naming  data  file  on  tape* 


Sets  number  of  spectral  data  points 
to  be  stored. 


Selects  appropriate  code  for 

ins  ;ructions  to  anadyaer  and  sends 

then. 


8220  SI ' S2>=bTDvB#) 

8225  RETURN 
8250  RESTORE  430 
8255  FOR  K3=0  TO  S2 
8260  REND  C$0  NEXT  K3 
8265  B$=DTH$<S1<S2>)«.C$ 

8270  OUTPUT  N  ;B$ 

8275  RETURN 

8300  OUTPUT  N  i“S“  8  S2=0 
8305  ENTER  H  USING  ;  R$ 

8310  IF  fl$="N“  THEN  RETURN 
8315  SI <S2>=HTO<fl$Cl . 43> 

8320  S2=S2+1  e  GOTO  8305 
8350  CLEAR  8  DISP  "  Waiting  for 
averagin'?  to  end"  8  WRIT  1 


8355 

8360 

8400 

8405 

8410 

8415 

8420 

8425 

8430 

8435 

8440 

8445 

8450 

8455 

8460 

8500 

8505 

8510 

8550 

8555 

8560 

8565 

8570 

8575 

8580 

8582 

8585 

8590 

8600 

9605 

8610 

8615 

8620 

8625 

8650 

8655 

8660 


00 

ON  1+8IT<SP0LL<N> . 1 >  GOTO  8 

355.8360 

RETURN 

OUTPUT  N  j"T"  e  Kl=l 
ENTER  N  ;  Rt 
B$=DTB$<HTD<R$C1 • 43) ) 
L2=BT0<rB$Cl  1  .  133)  NOD  3+1 
IF  L2=3  THEN  L2=5 
L3=BTD<B$C11. 133)  DIV  3-1 
R2=L2tI0''L3 
GOSUB  8500 

ENTER  N  USING  "JJ.JSK"  ;  H$ 

IP  THEN  RETURN 

IF  F+Ki*D2>=fl5  RND  K2<=S  TH 

£N  GOSUB  8550 

K1=K1  +  1 

GOTO  8440 

IF  H2=0  THEN  R5=FNL1<K2) 

TF  N2=l  THEN  R5=FNL0<K2> 
RETURN 

PRINT#  1  ^  F+K1»D2 
B*=DTBf CHTDCRfCl . 43) > 
L1=FNC2<:B$C1 .63) 
L2=FHC2<B*C7. 153) 
W=SQR<L2''256*2''L1  >»fl2 
PRINT#  1  ;  V 
K2=K2+i  e  fi6=fl5 
PRINT  “  "  ;  F+K  1*D2 >  TRB^  16.> ; 

V 


GOSUB  8500 
RETURN 

CLEAR  e  DISP  "  INPUT  LE 

MEL  TOO  HIGH" 

BEEP  30.400 

DISP  "PRESS  'CONT'  HHEN  LEM 
EL  IS  RESET" 

PAUSE 

K5=0 

GOTO  4510 

CLEAR  0  DISP  "  INPUT  LE 

MEL  TOO  LOW" 

BEEP  30.400 

DISP  "PRESS  'CONT'  WHEN  LEM 
EL  IS  RESET" 


Re«id6  in  control  settings* 


Ex£^  mines  status  byte  of  analyser  to 
del  ermine  whether  averaging  is 
complete  or  not* 


Heads  in  spectral  data,  decides  if 
data  is  required,  and  stores  this 
data  on  tape  and  on  printer* 


8665  PHUSE 
8670  K5=0 
8675  GOTO  4518 

8705  B*“"FFFF8“^^'^  frequency  expansion  origin. 

8710  Ll=LEN<flS> 

8715  FOR  K4=l  TO  LI 

8720  CSsOTHS<15-HTD<RfCK4.K43>> 

8725  Bf C4-L 1 ♦K4 , 4-L 1 ♦K43«C tC4 , 43 
8730  NEXT  K4 
8735  OUTPUT  N  ;Bf 
8740  RETURN 

8750  82=3  0  Nl/N2=10  0  K5=l 
8755  GOSUB  8260 
8760  GOSUB  8258 
8765  RETURN 


